inherited fPesquisaProduto: TfPesquisaProduto
  Caption = 'Pesquisa de Produto'
  ClientHeight = 440
  ClientWidth = 508
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 508
    inherited Edit1: TEdit
      Width = 491
    end
  end
  inherited RxDBGrid1: TRxDBGrid
    Width = 508
    Height = 368
    Columns = <
      item
        Expanded = False
        FieldName = 'CODIGO'
        Title.Caption = 'Codigo'
        Width = 45
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DESCRICAO'
        Title.Caption = 'Descricao'
        Width = 256
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VALOR_UNIT'
        Title.Alignment = taRightJustify
        Title.Caption = 'Valor Unitario'
        Width = 104
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SALDO'
        Title.Alignment = taRightJustify
        Title.Caption = 'Estoque'
        Visible = True
      end>
  end
  inherited StatusBar1: TStatusBar
    Top = 421
    Width = 508
  end
  inherited query: TIBOQuery
    DatabaseName = 'C:\Delphi7\Integrado\Dados\BANCO.GDB'
    IB_Connection = dm.base
    SQL.Strings = (
      'select * from consulta_produto'
      'where consulta_produto.situacao = '#39'A'#39)
    object queryCODIGO: TIntegerField
      FieldName = 'CODIGO'
    end
    object queryDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 100
    end
    object querySITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 1
    end
    object queryVALOR_UNIT: TBCDField
      FieldName = 'VALOR_UNIT'
      Size = 2
    end
    object queryCUSTO_UNIT: TBCDField
      FieldName = 'CUSTO_UNIT'
      Size = 2
    end
    object querySALDO: TBCDField
      FieldName = 'SALDO'
      Size = 2
    end
  end
end
